/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / codeWarrier.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 63 6f 64 65 57 61 | 72 72 69 65 72 2e 74 63 |..codeWa|rrier.tc|
|00000010| 6c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |l.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 05 7a 00 | 00 01 7e aa 20 f7 99 aa |......z.|..~. ...|
|00000060| 20 f7 99 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | .......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 5d fb 00 00 |........|....]...|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 0d 23 0d 23 20 09 09 | 09 43 6f 64 65 57 61 72 |=.#.# ..|.CodeWar|
|000000e0| 72 69 65 72 20 49 6e 74 | 65 72 61 63 74 69 6f 6e |rier Int|eraction|
|000000f0| 0d 23 0d 23 20 4d 65 74 | 72 6f 77 65 72 6b 73 20 |.#.# Met|rowerks |
|00000100| 63 75 72 72 65 6e 74 6c | 79 20 68 61 73 20 61 6e |currentl|y has an|
|00000110| 20 69 6e 63 6f 6d 70 6c | 65 74 65 20 61 70 70 6c | incompl|ete appl|
|00000120| 65 65 76 65 6e 74 20 69 | 6e 74 65 72 66 61 63 65 |eevent i|nterface|
|00000130| 2e 20 0d 23 20 41 70 70 | 6c 65 20 65 76 65 6e 74 |. .# App|le event|
|00000140| 73 20 63 61 6e 20 62 65 | 20 75 73 65 64 20 74 6f |s can be| used to|
|00000150| 20 64 69 72 65 63 74 20 | 43 6f 64 65 57 61 72 72 | direct |CodeWarr|
|00000160| 69 65 72 20 74 6f 20 63 | 6f 6d 70 69 6c 65 0d 23 |ier to c|ompile.#|
|00000170| 20 6f 72 20 61 64 64 20 | 69 6e 64 69 76 69 64 75 | or add |individu|
|00000180| 61 6c 20 66 69 6c 65 73 | 2c 20 6d 61 6b 65 20 74 |al files|, make t|
|00000190| 68 65 20 70 72 6f 6a 65 | 63 74 2c 20 65 74 63 2e |he proje|ct, etc.|
|000001a0| 20 48 6f 77 65 76 65 72 | 2c 20 0d 23 20 74 68 65 | However|, .# the|
|000001b0| 72 65 20 69 73 20 63 75 | 72 72 65 6e 74 6c 79 20 |re is cu|rrently |
|000001c0| 6e 6f 20 70 72 6f 76 69 | 73 69 6f 6e 20 74 6f 20 |no provi|sion to |
|000001d0| 72 65 70 6f 72 74 20 73 | 70 65 63 69 66 69 63 20 |report s|pecific |
|000001e0| 65 72 72 6f 72 73 0d 23 | 20 62 61 63 6b 20 74 6f |errors.#| back to|
|000001f0| 20 74 68 65 20 63 6f 6e | 74 72 6f 6c 6c 65 72 2e | the con|troller.|
|00000200| 0d 23 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#.#====|========|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000250| 3d 3d 3d 3d 0d 0d 0d 73 | 65 74 20 43 57 43 4c 41 |====...s|et CWCLA|
|00000260| 53 53 09 09 4d 4d 50 52 | 0d 0d 0d 70 72 6f 63 20 |SS..MMPR|...proc |
|00000270| 63 6f 64 65 57 61 72 72 | 69 65 72 50 72 6f 63 20 |codeWarr|ierProc |
|00000280| 7b 6d 65 6e 75 20 69 74 | 65 6d 7d 20 7b 0d 09 63 |{menu it|em} {..c|
|00000290| 77 24 69 74 65 6d 0d 7d | 0d 09 0d 70 72 6f 63 20 |w$item.}|...proc |
|000002a0| 63 77 73 77 69 74 63 68 | 54 6f 20 7b 7d 20 7b 0d |cwswitch|To {} {.|
|000002b0| 09 67 6c 6f 62 61 6c 20 | 43 4f 44 45 57 41 52 52 |.global |CODEWARR|
|000002c0| 49 45 52 0d 09 63 68 65 | 63 6b 43 77 0d 09 73 77 |IER..che|ckCw..sw|
|000002d0| 69 74 63 68 54 6f 20 24 | 43 4f 44 45 57 41 52 52 |itchTo $|CODEWARR|
|000002e0| 49 45 52 0d 7d 0d 0d 70 | 72 6f 63 20 63 77 6d 61 |IER.}..p|roc cwma|
|000002f0| 6b 65 20 7b 7d 20 7b 63 | 77 44 6f 20 4d 61 6b 65 |ke {} {c|wDo Make|
|00000300| 7d 0d 70 72 6f 63 20 63 | 77 72 75 6e 20 7b 7d 20 |}.proc c|wrun {} |
|00000310| 7b 63 77 44 6f 20 52 75 | 6e 50 7d 0d 70 72 6f 63 |{cwDo Ru|nP}.proc|
|00000320| 20 63 77 75 70 64 61 74 | 65 20 7b 7d 20 7b 63 77 | cwupdat|e {} {cw|
|00000330| 44 6f 20 55 70 64 50 7d | 0d 0d 70 72 6f 63 20 63 |Do UpdP}|..proc c|
|00000340| 77 44 6f 20 7b 70 61 72 | 61 6d 7d 20 7b 0d 09 67 |wDo {par|am} {..g|
|00000350| 6c 6f 62 61 6c 20 43 4f | 44 45 57 41 52 52 49 45 |lobal CO|DEWARRIE|
|00000360| 52 20 43 57 43 4c 41 53 | 53 20 0d 09 63 68 65 63 |R CWCLAS|S ..chec|
|00000370| 6b 43 77 0d 09 73 77 69 | 74 63 68 54 6f 20 24 43 |kCw..swi|tchTo $C|
|00000380| 4f 44 45 57 41 52 52 49 | 45 52 0d 09 73 65 74 20 |ODEWARRI|ER..set |
|00000390| 72 65 73 20 5b 41 45 42 | 75 69 6c 64 20 2d 71 20 |res [AEB|uild -q |
|000003a0| 2d 74 20 36 30 30 30 20 | 24 43 4f 44 45 57 41 52 |-t 6000 |$CODEWAR|
|000003b0| 52 49 45 52 20 24 43 57 | 43 4c 41 53 53 20 24 70 |RIER $CW|CLASS $p|
|000003c0| 61 72 61 6d 5d 0d 7d 0d | 0d 0d 70 72 6f 63 20 63 |aram].}.|..proc c|
|000003d0| 77 61 64 64 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |wadd {} |{..globa|
|000003e0| 6c 20 43 4f 44 45 57 41 | 52 52 49 45 52 20 43 57 |l CODEWA|RRIER CW|
|000003f0| 43 4c 41 53 53 0d 09 63 | 68 65 63 6b 43 77 0d 09 |CLASS..c|heckCw..|
|00000400| 73 77 69 74 63 68 54 6f | 20 24 43 4f 44 45 57 41 |switchTo| $CODEWA|
|00000410| 52 52 49 45 52 0d 09 73 | 65 74 20 66 6e 61 6d 65 |RRIER..s|et fname|
|00000420| 20 5b 6c 69 6e 64 65 78 | 20 5b 77 69 6e 4e 61 6d | [lindex| [winNam|
|00000430| 65 73 20 2d 66 5d 20 30 | 5d 0d 09 73 65 74 20 72 |es -f] 0|]..set r|
|00000440| 65 73 20 5b 41 45 42 75 | 69 6c 64 20 2d 71 20 24 |es [AEBu|ild -q $|
|00000450| 43 4f 44 45 57 41 52 52 | 49 45 52 20 24 43 57 43 |CODEWARR|IER $CWC|
|00000460| 4c 41 53 53 20 43 6f 6d | 70 20 22 2d 2d 2d 2d 22 |LASS Com|p "----"|
|00000470| 20 5b 63 6f 6e 63 61 74 | 20 7b 5b 61 6c 69 73 28 | [concat| {[alis(|
|00000480| c7 7d 20 5b 63 6f 65 72 | 63 65 20 54 45 58 54 20 |.} [coer|ce TEXT |
|00000490| 24 66 6e 61 6d 65 20 2d | 78 20 61 6c 69 73 5d 20 |$fname -|x alis] |
|000004a0| 7b c8 29 5d 7d 5d 5d 0d | 7d 0d 0d 70 72 6f 63 20 |{.)]}]].|}..proc |
|000004b0| 63 77 63 6f 6d 70 69 6c | 65 20 7b 7d 20 7b 0d 09 |cwcompil|e {} {..|
|000004c0| 67 6c 6f 62 61 6c 20 43 | 4f 44 45 57 41 52 52 49 |global C|ODEWARRI|
|000004d0| 45 52 20 43 57 43 4c 41 | 53 53 0d 09 63 68 65 63 |ER CWCLA|SS..chec|
|000004e0| 6b 43 77 0d 09 73 77 69 | 74 63 68 54 6f 20 24 43 |kCw..swi|tchTo $C|
|000004f0| 4f 44 45 57 41 52 52 49 | 45 52 0d 09 73 65 74 20 |ODEWARRI|ER..set |
|00000500| 66 6e 61 6d 65 20 5b 6c | 69 6e 64 65 78 20 5b 77 |fname [l|index [w|
|00000510| 69 6e 4e 61 6d 65 73 20 | 2d 66 5d 20 30 5d 0d 09 |inNames |-f] 0]..|
|00000520| 73 65 74 20 72 65 73 20 | 5b 41 45 42 75 69 6c 64 |set res |[AEBuild|
|00000530| 20 2d 71 20 24 43 4f 44 | 45 57 41 52 52 49 45 52 | -q $COD|EWARRIER|
|00000540| 20 24 43 57 43 4c 41 53 | 53 20 43 6f 6d 70 20 22 | $CWCLAS|S Comp "|
|00000550| 2d 2d 2d 2d 22 20 5b 63 | 6f 6e 63 61 74 20 7b 5b |----" [c|oncat {[|
|00000560| 61 6c 69 73 28 c7 7d 20 | 5b 63 6f 65 72 63 65 20 |alis(.} |[coerce |
|00000570| 54 45 58 54 20 24 66 6e | 61 6d 65 20 2d 78 20 61 |TEXT $fn|ame -x a|
|00000580| 6c 69 73 5d 20 7b c8 29 | 5d 7d 5d 5d 0d 7d 0d 0d |lis] {.)|]}]].}..|
|00000590| 0d 70 72 6f 63 20 63 68 | 65 63 6b 43 77 20 7b 7d |.proc ch|eckCw {}|
|000005a0| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 43 4f 44 45 57 | {..glob|al CODEW|
|000005b0| 41 52 52 49 45 52 0d 09 | 73 65 74 20 43 4f 44 45 |ARRIER..|set CODE|
|000005c0| 57 41 52 52 49 45 52 20 | 5b 63 68 65 63 6b 52 75 |WARRIER |[checkRu|
|000005d0| 6e 6e 69 6e 67 20 22 4d | 57 20 43 2f 43 2b 2b 20 |nning "M|W C/C++ |
|000005e0| 36 38 4b 20 76 31 2e 30 | 22 20 4d 4d 43 43 20 63 |68K v1.0|" MMCC c|
|000005f0| 77 50 61 74 68 5d 0d 7d | 0d 0d 00 00 00 00 00 00 |wPath].}|........|
|00000600| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000610| 00 00 f0 3b ff ff 00 00 | 91 72 00 00 00 00 f0 36 |...;....|.r.....6|
|00000620| ff ff 00 00 ad 75 00 00 | 00 00 f0 20 ff ff 20 00 |.....u..|... .. .|
|00000630| 0f 63 6f 64 65 57 61 72 | 72 69 65 72 2e 74 63 6c |.codeWar|rier.tcl|
|00000640| 02 00 00 00 54 45 58 54 | 41 4c 46 41 00 00 00 00 |....TEXT|ALFA....|
|00000650| 00 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 aa 12 df a5 00 00 | 05 7a 00 00 01 7e f0 30 |........|.z...~.0|
|00000680| ff ff 00 00 18 11 00 00 | 00 00 f0 32 ff ff 00 00 |........|...2....|
|00000690| 18 55 00 00 00 00 f0 3e | ff ff 00 01 ab 6e 00 00 |.U.....>|.....n..|
|000006a0| 00 00 f0 30 ff ff 20 00 | 16 c2 00 00 00 00 f0 31 |...0.. .|.......1|
|000006b0| ff ff 00 00 16 dc 00 00 | 00 00 f0 32 ff ff 00 00 |........|...2....|
|000006c0| 16 50 00 00 00 00 f0 21 | ff ff 00 00 3a 88 00 00 |.P.....!|....:...|
|000006d0| 00 00 f0 33 ff ff 20 00 | 51 4d 00 00 00 00 f0 3f |...3.. .|QM.....?|
|000006e0| 00 47 20 00 02 b5 00 00 | 00 00 f0 30 00 51 20 00 |.G .....|...0.Q .|
|000006f0| 45 03 00 00 00 00 f0 37 | 01 5f 00 00 03 74 00 00 |E......7|._...t..|
|00000700| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 01 0f |...H..Mo|naco....|
|00000710| 84 dc 00 00 00 00 01 26 | 8b 08 00 04 b5 b2 03 0d |.......&|........|
|00000720| 01 1e 72 a8 00 00 00 04 | 00 04 01 4a 00 03 01 dc |..r.....|...J....|
|00000730| 02 79 01 4a 00 03 01 dc | 02 79 00 08 52 ee 00 00 |.y.J....|.y..R...|
|00000740| 03 4a 00 00 03 4a 00 00 | 03 49 01 00 00 00 01 00 |.J...J..|.I......|
|00000750| 00 00 01 4c 00 00 00 4c | 00 00 00 32 01 0f 84 dc |...L...L|...2....|
|00000760| 0c dc 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000770| 00 0a 03 ed ff ff 00 00 | 00 00 01 17 58 b4 00 00 |........|....X...|
+--------+-------------------------+-------------------------+--------+--------+